home *** CD-ROM | disk | FTP | other *** search
- #include "xcmd.h"
-
- pascal long StrToLong(block,s)
- XCmdBlockPtr block;
- char *s;
- {
- #ifdef XTEST
-
- long n;
- short slen;
- char c;
- long place;
-
- slen = s[0];
-
- n = 0L;
- place = 1L;
- while(slen)
- {
- if (s[slen] >= '0' && s[slen] <= '9')
- {
- c = s[slen] - '0';
- n += c * place;
- place *= 10;
- }
- slen--;
- }
- return(n);
-
- #else
-
- block->inArgs[0] = (long)s;
- block->request = xreqStrToLong;
- block->entryPoint();
- return( (long)block->outArgs[0]);
-
- #endif
-
- }
-